|
 (Chambered
Tomb. Neolithic.) A massive capstone, supported by three uprights covers
this impressive tomb. The structure collapsed in 1815 and was subsequently
re-erected in 1824. The chamber was originally a rectangular box, with
a long low platform at one end. There are the remains of side chambers
(cists) at the other end .
|
<%@ LANGUAGE="VBSCRIPT" %>
<%
sql = "SELECT [Accommodation_Type], [ID], [Town], [Location_Holder], [Postcode], [Website Text], [Establishment and Town] From Clients WHERE (([Postcode] Like '%PL18%' OR [Postcode] Like '%PL19%' OR [Postcode] Like '%PL20%' OR [Postcode] Like '%PL26%' ) AND [HERITAGE-TRAIL] Like '%Her%') "
sql = sql & " ORDER BY [Accommodation_Type] desc "
%>
<%' Open Connection
dim objConn
dim objRec
set objConn = Server.CreateObject("ADODB.Connection")
set objRec = Server.CreateObject("ADODB.Recordset")
' set the cursor location for record count
objRec.CursorLocation = 3
objConn.Open "Driver={Microsoft Access driver (*.mdb)};DBQ=d:\wwwdata\pub-domains\www.westcountry-online.com\accommodationdata\database\accommodationdata.mdb"
objRec.Open sql, objConn
'objRec.Open "Clients", objConn, 0,1,2 %>
<%
' trap any errors
On Error Resume Next
' count the number of records found
if objRec.RecordCount = 1 Then
Response.write "The Heritage Trail has One character property in the local area."
Else
Response.write " The Heritage Trail has " & objRec.RecordCount & " unique places of charm and character for you to visit in the Westcountry. "
End if
' Say if their are no records found
if objRec.eof Then
Response.Write " - "
End If
' Process Row
objRec.MoveFirst
x = 0
intCount = 0
do while Not objRec.eof
intCount = intCount + 1
If intCount mod 2 = 0 Then
bgcolor="#E6E6FF"
Else
bgcolor="White"
End If
%>
>
|
>
|
"><%=objRec("Establishment and Town")%>
<%=objRec("Town")%>
|
<%=objRec("Website Text")%>
|
<%
objRec.MoveNext
x=x+1
loop
objRec.Close
Set objRec = Nothing
objConn.Close
Set objConn=Nothing
%>
Promoting your business on Cornwall Online
Copyright
© 2000
- Disclaimer
|
